home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A)[a].po / APPLE.SIGN.bas < prev    next >
BASIC Source File  |  1996-12-24  |  614b  |  2 lines
  1. 10  FOR Y = 1 TO 3: INPUT "";A$(Y): NEXT : HOME : FOR Y = 1 TO 3: VTAB 10 +Y: HTAB (42 - LEN(A$(Y)))/2: PRINT A$(Y): NEXT : POKE 49167,0: FLASH :A$ = "":B$ = "": FOR X = 1 TO 20:A$ = A$ +"A@":B$ = B$ +"@A": NEXT : FOR R = 0 TO 1: VTAB 10: PRINT A$: VTAB 14: PRINT A$: FOR Y = 0 TO 2:A = Y/2 =  INT(Y/2): VTAB 11 +Y: HTAB 1
  2. 20  PRINT  CHR$(65 -A);: HTAB 40: PRINT  CHR$(64 +A);: NEXT : CALL  -856: VTAB 10: PRINT B$: VTAB 14: PRINT B$: FOR Y = 0 TO 2:A = Y/2 =  INT(Y/2): VTAB 11 +Y: HTAB 1: PRINT  CHR$(64 +A);: HTAB 40: PRINT  CHR$(65 -A);: NEXT : CALL  -856:R =  PEEK(49152) >128: NEXT R: NORMAL : POKE  -16368,0